inherited frmCode: TfrmCode
  Left = 324
  Top = 296
  Height = 295
  Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3619#3627#3633#3626
  PixelsPerInch = 96
  TextHeight = 13
  object KDBEdit4: TKDBEdit [0]
    Left = 125
    Top = 146
    Width = 121
    Height = 21
    DataField = 'CODEYEAR'
    DataSource = dsMaster
    TabOrder = 2
    INITLabel.Show = True
    INITLabel.Caption = #3611#3637#3611#3633#3592#3592#3640#3610#3633#3609
  end
  object KDBEdit3: TKDBEdit [1]
    Left = 125
    Top = 114
    Width = 121
    Height = 21
    DataField = 'CODENO'
    DataSource = dsMaster
    TabOrder = 3
    INITLabel.Show = True
    INITLabel.Caption = #3592#3635#3609#3623#3609#3611#3633#3592#3592#3640#3610#3633#3609
  end
  object KDBEdit2: TKDBEdit [2]
    Left = 125
    Top = 82
    Width = 345
    Height = 21
    DataField = 'CODENAME'
    DataSource = dsMaster
    TabOrder = 4
    INITLabel.Show = True
    INITLabel.Caption = #3594#3639#3656#3629#3619#3627#3633#3626
  end
  object KDBEdit1: TKDBEdit [3]
    Left = 125
    Top = 50
    Width = 121
    Height = 21
    DataField = 'CODE'
    DataSource = dsMaster
    TabOrder = 5
    INITLabel.Show = True
    INITLabel.Caption = #3619#3627#3633#3626
  end
  object KDBEdit5: TKDBEdit [4]
    Left = 125
    Top = 177
    Width = 321
    Height = 21
    DataField = 'CODEREP'
    DataSource = dsMaster
    TabOrder = 6
    INITSpeedButton.Show = True
    INITSpeedButton.Kind = bkLookUp
    INITLabel.Show = True
    INITLabel.Caption = #3607#3637#3656#3648#3585#3655#3610#3649#3615#3657#3617#3619#3634#3618#3591#3634#3609
    ShortCutButton = 115
    OnSpeedButtonClick = KDBEdit5SpeedButtonClick
  end
  inherited pnBottom: TPanel
    Top = 219
  end
  inherited qMaster: TADOQuery
    Parameters = <
      item
        Name = 'CODE'
        DataType = ftWideString
        Value = Null
      end>
    SQL.Strings = (
      'SELECT * FROM MCODE WHERE CODE = :CODE')
    object qMasterCODE: TWideStringField
      FieldName = 'CODE'
      Size = 10
    end
    object qMasterCODENAME: TWideStringField
      FieldName = 'CODENAME'
      Size = 50
    end
    object qMasterCODENO: TWideStringField
      FieldName = 'CODENO'
      Size = 10
    end
    object qMasterCODEYEAR: TWideStringField
      FieldName = 'CODEYEAR'
      Size = 4
    end
    object qMasterCODEREP: TWideStringField
      FieldName = 'CODEREP'
      Size = 255
    end
  end
end
